home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / cross / GBDK-2.0.lha / GBDK / lib / init_tt.s < prev    next >
Text File  |  1998-10-01  |  621b  |  42 lines
  1.     .include    "global.s"
  2.  
  3.     .area    _CODE
  4.  
  5.     ;; Initialize part (size = DE) of the VRAM at (HL) with B
  6. .init_vram::
  7. 1$:
  8.     LDH    A,(.STAT)
  9.     AND    #0x02
  10.     JR    NZ,1$
  11.  
  12.     LD    (HL),B
  13.     INC    HL
  14.     DEC    DE
  15.     LD    A,D
  16.     OR    E
  17.     JR    NZ,1$
  18.     RET
  19.     ;; Initialize window tile table with B
  20. .init_wtt::
  21.     LDH    A,(.LCDC)
  22.     BIT    6,A
  23.     JR    NZ,1$
  24.     LD    HL,#0x9800    ; HL = origin
  25.     JR    .init_tt
  26. 1$:
  27.     LD    HL,#0x9C00    ; HL = origin
  28.     JR    .init_tt
  29.     ;; Initialize background tile table with B
  30. .init_btt::
  31.     LDH    A,(.LCDC)
  32.     BIT    3,A
  33.     JR    NZ,1$
  34.     LD    HL,#0x9800    ; HL = origin
  35.     JR    .init_tt
  36. 1$:
  37.     LD    HL,#0x9C00    ; HL = origin
  38. ;    JR    .init_tt
  39. .init_tt::
  40.     LD    DE,#0x0400    ; One whole GB Screen
  41.     JP    .init_vram
  42.